/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / lwebmac.tex

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 6d 61 63 72 6f 73 | 20 66 6f 72 20 74 68 65 |% macros| for the|
|00000010| 20 4c 57 45 42 20 73 79 | 73 74 65 6d 20 62 79 20 | LWEB sy|stem by |
|00000020| 44 43 42 20 2d 2a 2d 20 | 4d 6f 64 65 3a 20 54 65 |DCB -*- |Mode: Te|
|00000030| 58 3b 20 53 79 6e 74 61 | 78 3a 20 43 6f 6d 6d 6f |X; Synta|x: Commo|
|00000040| 6e 2d 6c 69 73 70 3b 20 | 50 61 63 6b 61 67 65 3a |n-lisp; |Package:|
|00000050| 20 4c 57 45 42 20 2d 2a | 2d 0a 0a 25 20 73 65 74 | LWEB -*|-..% set|
|00000060| 75 70 0a 5c 63 61 74 63 | 6f 64 65 60 5c 40 3d 31 |up.\catc|ode`\@=1|
|00000070| 31 0a 0a 0c 25 20 66 6f | 6e 74 73 0a 5c 64 65 66 |1...% fo|nts.\def|
|00000080| 5c 4c 57 6e 6f 72 6d 61 | 6c 66 6f 6e 74 20 7b 5c |\LWnorma|lfont {\|
|00000090| 72 6d 7d 0a 5c 64 65 66 | 5c 4c 57 63 6f 6d 6d 65 |rm}.\def|\LWcomme|
|000000a0| 6e 74 66 6f 6e 74 20 7b | 5c 69 74 7d 0a 5c 64 65 |ntfont {|\it}.\de|
|000000b0| 66 5c 4c 57 70 75 6e 63 | 66 6f 6e 74 20 7b 5c 74 |f\LWpunc|font {\t|
|000000c0| 74 7d 0a 5c 64 65 66 5c | 4c 57 63 6f 64 65 66 6f |t}.\def\|LWcodefo|
|000000d0| 6e 74 20 7b 5c 72 6d 7d | 0a 5c 64 65 66 5c 4c 57 |nt {\rm}|.\def\LW|
|000000e0| 63 6f 64 65 70 75 6e 63 | 66 6f 6e 74 20 7b 5c 74 |codepunc|font {\t|
|000000f0| 74 7d 0a 5c 64 65 66 5c | 73 6c 61 6e 74 65 64 63 |t}.\def\|slantedc|
|00000100| 6f 64 65 20 7b 25 0a 20 | 20 5c 66 6f 6e 74 5c 73 |ode {%. | \font\s|
|00000110| 6c 74 74 3d 61 6d 73 6c | 74 74 31 30 0a 20 20 5c |ltt=amsl|tt10.  \|
|00000120| 64 65 66 5c 4c 57 63 6f | 64 65 66 6f 6e 74 7b 5c |def\LWco|defont{\|
|00000130| 73 6c 7d 25 0a 20 20 5c | 64 65 66 5c 4c 57 63 6f |sl}%.  \|def\LWco|
|00000140| 64 65 70 75 6e 63 66 6f | 6e 74 7b 5c 73 6c 74 74 |depuncfo|nt{\sltt|
|00000150| 7d 7d 0a 5c 64 65 66 5c | 62 6f 6c 64 63 6f 64 65 |}}.\def\|boldcode|
|00000160| 20 7b 25 0a 20 20 5c 64 | 65 66 5c 4c 57 63 6f 64 | {%.  \d|ef\LWcod|
|00000170| 65 66 6f 6e 74 7b 5c 62 | 66 7d 25 0a 20 20 5c 64 |efont{\b|f}%.  \d|
|00000180| 65 66 5c 4c 57 63 6f 64 | 65 70 75 6e 63 66 6f 6e |ef\LWcod|epuncfon|
|00000190| 74 7b 5c 74 74 7d 7d 0a | 0a 0c 25 20 64 65 6c 69 |t{\tt}}.|..% deli|
|000001a0| 6d 69 74 65 72 73 0a 5c | 6e 65 77 64 69 6d 65 6e |miters.\|newdimen|
|000001b0| 5c 4c 57 70 61 72 65 6e | 6b 65 72 6e 20 20 20 5c |\LWparen|kern   \|
|000001c0| 4c 57 70 61 72 65 6e 6b | 65 72 6e 3d 2e 31 70 74 |LWparenk|ern=.1pt|
|000001d0| 0a 5c 6e 65 77 64 69 6d | 65 6e 5c 4c 57 63 6f 6d |.\newdim|en\LWcom|
|000001e0| 6d 65 6e 74 6b 65 72 6e | 20 5c 4c 57 63 6f 6d 6d |mentkern| \LWcomm|
|000001f0| 65 6e 74 6b 65 72 6e 3d | 31 70 74 0a 5c 6e 65 77 |entkern=|1pt.\new|
|00000200| 64 69 6d 65 6e 5c 4c 57 | 73 70 61 63 65 77 69 64 |dimen\LW|spacewid|
|00000210| 74 68 20 20 5c 4c 57 73 | 70 61 63 65 77 69 64 74 |th  \LWs|pacewidt|
|00000220| 68 3d 2e 34 35 65 6d 0a | 5c 64 65 66 5c 4c 57 6f |h=.45em.|\def\LWo|
|00000230| 70 2f 7b 7b 5c 72 6d 28 | 5c 6b 65 72 6e 5c 4c 57 |p/{{\rm(|\kern\LW|
|00000240| 70 61 72 65 6e 6b 65 72 | 6e 7d 7d 0a 5c 64 65 66 |parenker|n}}.\def|
|00000250| 5c 4c 57 63 70 2f 7b 5c | 2f 7b 5c 72 6d 5c 6b 65 |\LWcp/{\|/{\rm\ke|
|00000260| 72 6e 5c 4c 57 70 61 72 | 65 6e 6b 65 72 6e 29 7d |rn\LWpar|enkern)}|
|00000270| 7d 0a 5c 64 65 66 5c 4c | 57 6f 62 72 61 63 65 2f |}.\def\L|Wobrace/|
|00000280| 7b 7b 24 5c 7b 24 5c 6b | 65 72 6e 5c 4c 57 70 61 |{{$\{$\k|ern\LWpa|
|00000290| 72 65 6e 6b 65 72 6e 7d | 7d 0a 5c 64 65 66 5c 4c |renkern}|}.\def\L|
|000002a0| 57 63 62 72 61 63 65 2f | 7b 5c 2f 7b 5c 6b 65 72 |Wcbrace/|{\/{\ker|
|000002b0| 6e 5c 4c 57 70 61 72 65 | 6e 6b 65 72 6e 24 5c 7d |n\LWpare|nkern$\}|
|000002c0| 24 7d 7d 0a 5c 64 65 66 | 5c 4c 57 71 75 6f 74 2f |$}}.\def|\LWquot/|
|000002d0| 7b 5c 72 61 69 73 65 2e | 33 65 78 5c 68 62 6f 78 |{\raise.|3ex\hbox|
|000002e0| 7b 5c 4c 57 70 75 6e 63 | 66 6f 6e 74 5c 63 68 61 |{\LWpunc|font\cha|
|000002f0| 72 60 5c 22 7d 7d 0a 5c | 64 65 66 5c 4c 57 73 74 |r`\"}}.\|def\LWst|
|00000300| 61 72 2f 7b 5c 6c 6f 77 | 65 72 2e 30 35 65 78 5c |ar/{\low|er.05ex\|
|00000310| 68 62 6f 78 7b 5c 4c 57 | 70 75 6e 63 66 6f 6e 74 |hbox{\LW|puncfont|
|00000320| 5c 63 68 61 72 60 5c 2a | 7d 7d 0a 5c 64 65 66 5c |\char`\*|}}.\def\|
|00000330| 4c 57 63 68 72 20 7b 5c | 4c 57 70 75 6e 63 66 6f |LWchr {\|LWpuncfo|
|00000340| 6e 74 5c 63 68 61 72 7d | 0a 5c 64 65 66 5c 4c 57 |nt\char}|.\def\LW|
|00000350| 73 65 74 70 77 69 64 74 | 68 20 7b 5c 73 65 74 62 |setpwidt|h {\setb|
|00000360| 6f 78 5c 7a 40 3d 5c 68 | 62 6f 78 7b 5c 4c 57 6f |ox\z@=\h|box{\LWo|
|00000370| 70 2f 7d 5c 4c 57 70 77 | 69 64 74 68 3d 5c 77 64 |p/}\LWpw|idth=\wd|
|00000380| 5c 7a 40 7d 0a 5c 6e 65 | 77 64 69 6d 65 6e 5c 4c |\z@}.\ne|wdimen\L|
|00000390| 57 70 77 69 64 74 68 20 | 20 20 20 20 20 5c 4c 57 |Wpwidth |     \LW|
|000003a0| 73 65 74 70 77 69 64 74 | 68 0a 0a 0c 25 20 69 6e |setpwidt|h...% in|
|000003b0| 64 65 6e 74 61 74 69 6f | 6e 73 0a 5c 64 65 66 5c |dentatio|ns.\def\|
|000003c0| 4c 57 70 69 2f 7b 5c 6b | 65 72 6e 5c 4c 57 70 77 |LWpi/{\k|ern\LWpw|
|000003d0| 69 64 74 68 7d 20 20 20 | 20 20 20 20 20 20 20 20 |idth}   |        |
|000003e0| 20 20 20 25 20 69 6e 63 | 72 65 6d 65 6e 74 20 66 |   % inc|rement f|
|000003f0| 6f 72 20 70 6c 75 73 31 | 0a 5c 64 65 66 5c 4c 57 |or plus1|.\def\LW|
|00000400| 70 69 69 2f 7b 5c 6b 65 | 72 6e 20 32 5c 4c 57 73 |pii/{\ke|rn 2\LWs|
|00000410| 70 61 63 65 77 69 64 74 | 68 7d 20 20 20 20 20 20 |pacewidt|h}      |
|00000420| 20 25 20 69 6e 63 72 65 | 6d 65 6e 74 20 66 6f 72 | % incre|ment for|
|00000430| 20 70 6c 75 73 32 0a 5c | 64 65 66 5c 4c 57 70 69 | plus2.\|def\LWpi|
|00000440| 76 2f 7b 5c 6b 65 72 6e | 20 34 5c 4c 57 73 70 61 |v/{\kern| 4\LWspa|
|00000450| 63 65 77 69 64 74 68 7d | 20 20 20 20 20 20 20 25 |cewidth}|       %|
|00000460| 20 69 6e 63 72 65 6d 65 | 6e 74 20 66 6f 72 20 70 | increme|nt for p|
|00000470| 6c 75 73 34 0a 5c 64 65 | 66 5c 4c 57 6b 73 20 23 |lus4.\de|f\LWks #|
|00000480| 31 7b 5c 6b 65 72 6e 20 | 23 31 5c 4c 57 73 70 61 |1{\kern |#1\LWspa|
|00000490| 63 65 77 69 64 74 68 7d | 20 20 20 20 20 25 20 6b |cewidth}|     % k|
|000004a0| 65 72 6e 20 61 20 6e 75 | 6d 62 65 72 20 6f 66 20 |ern a nu|mber of |
|000004b0| 73 70 61 63 65 20 77 69 | 64 74 68 73 0a 0a 0a 0c |space wi|dths....|
|000004c0| 25 20 62 6f 78 65 73 0a | 5c 6e 65 77 62 6f 78 5c |% boxes.|\newbox\|
|000004d0| 4c 57 62 6f 78 0a 5c 6e | 65 77 64 69 6d 65 6e 5c |LWbox.\n|ewdimen\|
|000004e0| 4c 57 62 6f 78 77 0a 5c | 64 65 66 5c 4c 57 73 62 |LWboxw.\|def\LWsb|
|000004f0| 20 7b 5c 73 65 74 62 6f | 78 5c 4c 57 62 6f 78 3d | {\setbo|x\LWbox=|
|00000500| 5c 68 62 6f 78 7d 20 20 | 20 20 20 20 20 20 20 25 |\hbox}  |       %|
|00000510| 20 73 74 61 72 74 20 61 | 20 62 6f 78 0a 5c 64 65 | start a| box.\de|
|00000520| 66 5c 4c 57 64 62 2f 7b | 5c 62 6f 78 5c 4c 57 62 |f\LWdb/{|\box\LWb|
|00000530| 6f 78 7d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ox}     |        |
|00000540| 20 20 20 20 20 25 20 64 | 75 6d 70 20 6f 75 74 20 |     % d|ump out |
|00000550| 61 20 62 6f 78 0a 5c 64 | 65 66 5c 4c 57 62 62 20 |a box.\d|ef\LWbb |
|00000560| 7b 5c 4c 57 62 6f 78 77 | 3d 5c 77 64 5c 4c 57 62 |{\LWboxw|=\wd\LWb|
|00000570| 6f 78 20 20 20 20 20 20 | 20 20 20 20 20 20 25 20 |ox      |      % |
|00000580| 6f 75 74 70 75 74 20 61 | 20 62 6f 78 20 61 6e 64 |output a| box and|
|00000590| 20 62 61 63 6b 73 70 61 | 63 65 20 6f 76 65 72 20 | backspa|ce over |
|000005a0| 69 74 0a 20 20 20 20 20 | 20 20 20 20 20 20 5c 62 |it.     |      \b|
|000005b0| 6f 78 5c 4c 57 62 6f 78 | 0a 20 20 20 20 20 20 20 |ox\LWbox|.       |
|000005c0| 20 20 20 20 5c 6b 65 72 | 6e 2d 5c 4c 57 62 6f 78 |    \ker|n-\LWbox|
|000005d0| 77 7d 0a 0a 0c 25 20 6d | 61 72 6b 65 72 73 0a 5c |w}...% m|arkers.\|
|000005e0| 64 65 66 5c 4c 57 73 6d | 20 23 31 7b 5c 78 64 65 |def\LWsm| #1{\xde|
|000005f0| 66 23 31 7b 5c 74 68 65 | 5c 77 64 5c 4c 57 62 6f |f#1{\the|\wd\LWbo|
|00000600| 78 7d 25 20 20 20 20 25 | 20 73 65 74 20 61 20 6d |x}%    %| set a m|
|00000610| 61 72 6b 20 72 65 67 69 | 73 74 65 72 0a 20 20 20 |ark regi|ster.   |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 5c 62 6f 78 5c 4c |        |  \box\L|
|00000630| 57 62 6f 78 7d 0a 5c 64 | 65 66 5c 4c 57 6b 72 20 |Wbox}.\d|ef\LWkr |
|00000640| 23 31 7b 5c 6b 65 72 6e | 20 23 31 5c 72 65 6c 61 |#1{\kern| #1\rela|
|00000650| 78 7d 20 20 20 20 20 20 | 20 20 20 20 20 20 25 20 |x}      |      % |
|00000660| 6b 65 72 6e 20 61 20 72 | 65 67 69 73 74 65 72 0a |kern a r|egister.|
|00000670| 5c 64 65 66 5c 4c 57 6b | 6d 20 7b 5c 4c 57 62 62 |\def\LWk|m {\LWbb|
|00000680| 5c 4c 57 6b 72 7d 20 20 | 20 20 20 20 20 20 20 20 |\LWkr}  |        |
|00000690| 20 20 20 20 20 20 20 20 | 25 20 6b 65 72 6e 20 74 |        |% kern t|
|000006a0| 6f 20 61 20 6d 61 72 6b | 65 64 20 70 6f 73 69 74 |o a mark|ed posit|
|000006b0| 69 6f 6e 0a 0a 0c 25 20 | 6d 6f 64 75 6c 65 73 0a |ion...% |modules.|
|000006c0| 0a 25 20 6b 65 65 70 20 | 74 72 61 63 6b 20 6f 66 |.% keep |track of|
|000006d0| 20 70 6f 73 69 74 69 6f | 6e 20 69 6e 20 66 69 6c | positio|n in fil|
|000006e0| 65 3a 20 74 6f 70 2c 20 | 61 66 74 65 72 20 6d 6f |e: top, |after mo|
|000006f0| 64 75 6c 65 2c 20 62 65 | 66 6f 72 65 20 6d 6f 64 |dule, be|fore mod|
|00000700| 75 6c 65 0a 5c 6e 65 77 | 69 66 5c 69 66 66 69 72 |ule.\new|if\iffir|
|00000710| 73 74 6d 6f 64 75 6c 65 | 20 5c 66 69 72 73 74 6d |stmodule| \firstm|
|00000720| 6f 64 75 6c 65 74 72 75 | 65 0a 5c 6e 65 77 69 66 |oduletru|e.\newif|
|00000730| 5c 69 66 6d 6f 64 75 6c | 65 0a 0a 25 20 69 6e 63 |\ifmodul|e..% inc|
|00000740| 72 65 6d 65 6e 74 61 6c | 6c 79 20 6e 75 6d 62 65 |remental|ly numbe|
|00000750| 72 20 6d 6f 64 75 6c 65 | 73 0a 5c 6e 65 77 63 6f |r module|s.\newco|
|00000760| 75 6e 74 5c 6d 6f 64 75 | 6c 65 63 6f 75 6e 74 0a |unt\modu|lecount.|
|00000770| 0a 25 20 6e 6f 72 6d 61 | 6c 20 6d 6f 64 75 6c 65 |.% norma|l module|
|00000780| 73 0a 5c 64 65 66 5c 4c | 57 62 65 67 69 6e 6d 6f |s.\def\L|Wbeginmo|
|00000790| 64 75 6c 65 2f 7b 25 0a | 20 20 5c 69 66 66 69 72 |dule/{%.|  \iffir|
|000007a0| 73 74 6d 6f 64 75 6c 65 | 20 5c 66 69 72 73 74 6d |stmodule| \firstm|
|000007b0| 6f 64 75 6c 65 66 61 6c | 73 65 0a 20 20 5c 65 6c |odulefal|se.  \el|
|000007c0| 73 65 20 20 20 20 20 20 | 20 20 20 20 5c 4c 57 66 |se      |    \LWf|
|000007d0| 69 6c 62 72 65 61 6b 20 | 5c 62 69 67 73 6b 69 70 |ilbreak |\bigskip|
|000007e0| 20 5c 66 69 0a 20 20 5c | 61 64 76 61 6e 63 65 5c | \fi.  \|advance\|
|000007f0| 6d 6f 64 75 6c 65 63 6f | 75 6e 74 5c 40 6e 65 0a |moduleco|unt\@ne.|
|00000800| 20 20 5c 4c 57 6d 61 72 | 6b 6d 6f 64 75 6c 65 0a |  \LWmar|kmodule.|
|00000810| 20 20 5c 62 65 67 69 6e | 67 72 6f 75 70 20 5c 4c |  \begin|group \L|
|00000820| 57 6d 6f 64 75 6c 65 64 | 65 66 73 0a 20 20 5c 6e |Wmoduled|efs.  \n|
|00000830| 6f 69 6e 64 65 6e 74 20 | 7b 5c 62 66 20 5c 6e 75 |oindent |{\bf \nu|
|00000840| 6d 62 65 72 5c 6d 6f 64 | 75 6c 65 63 6f 75 6e 74 |mber\mod|ulecount|
|00000850| 2e 7d 5c 65 6e 73 70 61 | 63 65 20 5c 69 67 6e 6f |.}\enspa|ce \igno|
|00000860| 72 65 73 70 61 63 65 73 | 7d 0a 0a 5c 64 65 66 5c |respaces|}..\def\|
|00000870| 4c 57 65 6e 64 6d 6f 64 | 75 6c 65 2f 7b 25 0a 20 |LWendmod|ule/{%. |
|00000880| 20 5c 65 6e 64 67 72 61 | 66 0a 20 20 5c 65 6e 64 | \endgra|f.  \end|
|00000890| 67 72 6f 75 70 0a 20 20 | 5c 6d 6f 64 75 6c 65 74 |group.  |\modulet|
|000008a0| 72 75 65 7d 0a 0a 5c 64 | 65 66 5c 4c 57 6d 61 72 |rue}..\d|ef\LWmar|
|000008b0| 6b 6d 6f 64 75 6c 65 20 | 7b 7d 0a 0a 5c 64 65 66 |kmodule |{}..\def|
|000008c0| 5c 4c 57 6d 6f 64 75 6c | 65 64 65 66 73 20 7b 5c |\LWmodul|edefs {\|
|000008d0| 64 65 66 5c 70 61 72 7b | 5c 65 6e 64 67 72 61 66 |def\par{|\endgraf|
|000008e0| 5c 6e 6f 62 72 65 61 6b | 7d 5c 4c 57 73 65 74 70 |\nobreak|}\LWsetp|
|000008f0| 77 69 64 74 68 7d 0a 0a | 25 20 73 74 61 72 20 6d |width}..|% star m|
|00000900| 6f 64 75 6c 65 73 0a 5c | 64 65 66 5c 4c 57 62 65 |odules.\|def\LWbe|
|00000910| 67 69 6e 73 74 61 72 6d | 6f 64 75 6c 65 20 23 31 |ginstarm|odule #1|
|00000920| 7b 25 0a 20 20 5c 69 66 | 66 69 72 73 74 6d 6f 64 |{%.  \if|firstmod|
|00000930| 75 6c 65 20 5c 66 69 72 | 73 74 6d 6f 64 75 6c 65 |ule \fir|stmodule|
|00000940| 66 61 6c 73 65 0a 20 20 | 5c 65 6c 73 65 20 20 20 |false.  |\else   |
|00000950| 20 20 20 20 20 20 20 5c | 76 66 69 6c 20 5c 65 6a |       \|vfil \ej|
|00000960| 65 63 74 20 5c 66 69 0a | 20 20 5c 61 64 76 61 6e |ect \fi.|  \advan|
|00000970| 63 65 5c 6d 6f 64 75 6c | 65 63 6f 75 6e 74 5c 40 |ce\modul|ecount\@|
|00000980| 6e 65 0a 20 20 5c 4c 57 | 6d 61 72 6b 73 74 61 72 |ne.  \LW|markstar|
|00000990| 6d 6f 64 75 6c 65 7b 23 | 31 7d 25 0a 20 20 5c 62 |module{#|1}%.  \b|
|000009a0| 65 67 69 6e 67 72 6f 75 | 70 20 5c 4c 57 6d 6f 64 |egingrou|p \LWmod|
|000009b0| 75 6c 65 64 65 66 73 0a | 20 20 5c 6e 6f 69 6e 64 |uledefs.|  \noind|
|000009c0| 65 6e 74 20 7b 5c 62 66 | 20 5c 6e 75 6d 62 65 72 |ent {\bf| \number|
|000009d0| 5c 6d 6f 64 75 6c 65 63 | 6f 75 6e 74 2e 20 5c 69 |\modulec|ount. \i|
|000009e0| 67 6e 6f 72 65 73 70 61 | 63 65 73 20 23 31 5c 70 |gnorespa|ces #1\p|
|000009f0| 61 72 7d 0a 20 20 5c 6e | 6f 62 72 65 61 6b 20 5c |ar}.  \n|obreak \|
|00000a00| 73 6d 61 6c 6c 73 6b 69 | 70 20 5c 6e 6f 69 6e 64 |smallski|p \noind|
|00000a10| 65 6e 74 20 5c 69 67 6e | 6f 72 65 73 70 61 63 65 |ent \ign|orespace|
|00000a20| 73 7d 0a 0a 5c 64 65 66 | 5c 4c 57 6d 61 72 6b 73 |s}..\def|\LWmarks|
|00000a30| 74 61 72 6d 6f 64 75 6c | 65 20 7b 5c 6d 65 73 73 |tarmodul|e {\mess|
|00000a40| 61 67 65 7b 2a 5c 6e 75 | 6d 62 65 72 5c 6d 6f 64 |age{*\nu|mber\mod|
|00000a50| 75 6c 65 63 6f 75 6e 74 | 7d 5c 6d 61 72 6b 7d 0a |ulecount|}\mark}.|
|00000a60| 0a 25 20 73 70 61 63 69 | 6e 67 20 61 6e 64 20 6c |.% spaci|ng and l|
|00000a70| 61 79 6f 75 74 0a 5c 64 | 65 66 5c 4c 57 66 69 6c |ayout.\d|ef\LWfil|
|00000a80| 62 72 65 61 6b 20 7b 5c | 76 66 69 6c 5c 70 65 6e |break {\|vfil\pen|
|00000a90| 61 6c 74 79 2d 32 30 30 | 5c 76 66 69 6c 6e 65 67 |alty-200|\vfilneg|
|00000aa0| 7d 0a 5c 64 65 66 5c 4c | 57 66 69 6c 6e 6f 62 72 |}.\def\L|Wfilnobr|
|00000ab0| 65 61 6b 20 7b 5c 76 66 | 69 6c 5c 70 65 6e 61 6c |eak {\vf|il\penal|
|00000ac0| 74 79 39 39 39 39 5c 76 | 66 69 6c 6e 65 67 7d 0a |ty9999\v|filneg}.|
|00000ad0| 5c 70 61 72 69 6e 64 65 | 6e 74 3d 32 65 6d 0a 5c |\parinde|nt=2em.\|
|00000ae0| 69 6e 74 65 72 6c 69 6e | 65 70 65 6e 61 6c 74 79 |interlin|epenalty|
|00000af0| 3d 31 30 30 30 30 20 20 | 20 20 20 20 20 20 20 20 |=10000  |        |
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 25 |        |       %|
|00000b10| 20 66 6f 72 62 69 64 20 | 70 61 67 65 20 62 72 65 | forbid |page bre|
|00000b20| 61 6b 73 20 69 6e 20 6d | 6f 64 75 6c 65 73 0a 0a |aks in m|odules..|
|00000b30| 25 20 63 6f 64 65 20 69 | 6e 20 6d 6f 64 75 6c 65 |% code i|n module|
|00000b40| 20 74 65 78 74 0a 5c 64 | 65 66 5c 4c 57 62 63 6f | text.\d|ef\LWbco|
|00000b50| 64 65 2f 7b 5c 62 65 67 | 69 6e 67 72 6f 75 70 20 |de/{\beg|ingroup |
|00000b60| 5c 4c 57 63 6f 64 65 66 | 6f 6e 74 20 5c 4c 57 63 |\LWcodef|ont \LWc|
|00000b70| 6f 64 65 64 65 66 73 20 | 5c 6c 65 74 5c 4c 57 70 |odedefs |\let\LWp|
|00000b80| 75 6e 63 66 6f 6e 74 3d | 5c 4c 57 63 6f 64 65 70 |uncfont=|\LWcodep|
|00000b90| 75 6e 63 66 6f 6e 74 7d | 0a 5c 64 65 66 5c 4c 57 |uncfont}|.\def\LW|
|00000ba0| 65 63 6f 64 65 2f 7b 5c | 2f 5c 65 6e 64 67 72 6f |ecode/{\|/\endgro|
|00000bb0| 75 70 7d 0a 0a 0c 25 20 | 63 6f 64 65 0a 5c 64 65 |up}...% |code.\de|
|00000bc0| 66 5c 4c 57 62 65 67 69 | 6e 6c 69 73 70 2f 7b 25 |f\LWbegi|nlisp/{%|
|00000bd0| 0a 20 20 5c 69 66 66 69 | 72 73 74 6d 6f 64 75 6c |.  \iffi|rstmodul|
|00000be0| 65 20 5c 62 65 67 69 6e | 6d 6f 64 75 6c 65 20 5c |e \begin|module \|
|00000bf0| 65 6e 64 6d 6f 64 75 6c | 65 20 5c 66 69 0a 20 20 |endmodul|e \fi.  |
|00000c00| 5c 69 66 6d 6f 64 75 6c | 65 20 5c 6d 6f 64 75 6c |\ifmodul|e \modul|
|00000c10| 65 66 61 6c 73 65 20 5c | 4c 57 66 69 6c 6e 6f 62 |efalse \|LWfilnob|
|00000c20| 72 65 61 6b 20 5c 62 69 | 67 73 6b 69 70 0a 20 20 |reak \bi|gskip.  |
|00000c30| 5c 65 6c 73 65 20 20 20 | 20 20 5c 4c 57 66 69 6c |\else   |  \LWfil|
|00000c40| 6e 6f 62 72 65 61 6b 20 | 5c 6d 65 64 73 6b 69 70 |nobreak |\medskip|
|00000c50| 20 5c 66 69 0a 20 20 5c | 76 62 6f 78 5c 62 67 72 | \fi.  \|vbox\bgr|
|00000c60| 6f 75 70 20 5c 4c 57 6e | 6f 72 6d 61 6c 66 6f 6e |oup \LWn|ormalfon|
|00000c70| 74 20 5c 4c 57 63 6f 64 | 65 64 65 66 73 7d 0a 0a |t \LWcod|edefs}..|
|00000c80| 5c 64 65 66 5c 4c 57 65 | 6e 64 6c 69 73 70 2f 7b |\def\LWe|ndlisp/{|
|00000c90| 25 0a 20 20 5c 65 67 72 | 6f 75 70 7d 0a 0a 5c 64 |%.  \egr|oup}..\d|
|00000ca0| 65 66 5c 4c 57 63 6f 64 | 65 64 65 66 73 20 7b 25 |ef\LWcod|edefs {%|
|00000cb0| 0a 20 20 5c 73 70 61 63 | 65 73 6b 69 70 3d 5c 4c |.  \spac|eskip=\L|
|00000cc0| 57 73 70 61 63 65 77 69 | 64 74 68 0a 20 20 5c 78 |Wspacewi|dth.  \x|
|00000cd0| 73 70 61 63 65 73 6b 69 | 70 3d 5c 4c 57 73 70 61 |spaceski|p=\LWspa|
|00000ce0| 63 65 77 69 64 74 68 0a | 20 20 5c 4c 57 73 65 74 |cewidth.|  \LWset|
|00000cf0| 70 77 69 64 74 68 7d 0a | 0a 25 20 6d 6f 64 75 6c |pwidth}.|.% modul|
|00000d00| 65 20 74 65 78 74 20 69 | 6e 20 63 6f 64 65 0a 5c |e text i|n code.\|
|00000d10| 64 65 66 5c 4c 57 63 6f | 6d 6d 65 6e 74 64 65 66 |def\LWco|mmentdef|
|00000d20| 73 20 7b 5c 73 70 61 63 | 65 73 6b 69 70 3d 5c 7a |s {\spac|eskip=\z|
|00000d30| 40 20 5c 78 73 70 61 63 | 65 73 6b 69 70 3d 5c 7a |@ \xspac|eskip=\z|
|00000d40| 40 20 5c 4c 57 63 6f 6d | 6d 65 6e 74 66 6f 6e 74 |@ \LWcom|mentfont|
|00000d50| 20 5c 4c 57 73 65 74 70 | 77 69 64 74 68 7d 0a 5c | \LWsetp|width}.\|
|00000d60| 64 65 66 5c 4c 57 62 63 | 6f 6d 2f 7b 5c 62 65 67 |def\LWbc|om/{\beg|
|00000d70| 69 6e 67 72 6f 75 70 20 | 5c 4c 57 63 6f 6d 6d 65 |ingroup |\LWcomme|
|00000d80| 6e 74 64 65 66 73 20 7b | 5c 72 6d 3b 5c 6b 65 72 |ntdefs {|\rm;\ker|
|00000d90| 6e 5c 4c 57 63 6f 6d 6d | 65 6e 74 6b 65 72 6e 7d |n\LWcomm|entkern}|
|00000da0| 7d 0a 5c 64 65 66 5c 4c | 57 65 63 6f 6d 2f 7b 5c |}.\def\L|Wecom/{\|
|00000db0| 65 6e 64 67 72 6f 75 70 | 7d 0a 0a 0c 25 20 6d 69 |endgroup|}...% mi|
|00000dc0| 73 63 65 6c 6c 61 6e 79 | 0a 5c 69 66 78 5c 6c 69 |scellany|.\ifx\li|
|00000dd0| 73 70 5c 75 6e 64 65 66 | 69 6e 65 64 0a 20 20 5c |sp\undef|ined.  \|
|00000de0| 64 65 66 5c 6c 69 73 70 | 20 7b 4c 69 73 70 7d 0a |def\lisp| {Lisp}.|
|00000df0| 20 20 5c 6c 65 74 5c 4c | 49 53 50 3d 5c 6c 69 73 |  \let\L|ISP=\lis|
|00000e00| 70 0a 20 20 5c 6c 65 74 | 5c 4c 69 73 70 3d 5c 6c |p.  \let|\Lisp=\l|
|00000e10| 69 73 70 0a 5c 66 69 0a | 5c 64 65 66 5c 6c 77 65 |isp.\fi.|\def\lwe|
|00000e20| 62 20 7b 4c 57 45 42 7d | 0a 5c 6c 65 74 5c 4c 57 |b {LWEB}|.\let\LW|
|00000e30| 45 42 3d 5c 6c 77 65 62 | 0a 0a 0c 25 20 63 6c 65 |EB=\lweb|...% cle|
|00000e40| 61 6e 75 70 0a 5c 63 61 | 74 63 6f 64 65 60 5c 40 |anup.\ca|tcode`\@|
|00000e50| 3d 31 32 0a             |                         |=12.    |        |
+--------+-------------------------+-------------------------+--------+--------+